MacWarehouse Macintosh Games/MacWarehouse Macintosh Games.iso/AMBER demo/AMBER-Journeys Beyond™ Patch 1c/00108.ls

Text File | 1997-02-19 | 991 b | 27 lines

on exitFrame
  global oPuppeteer, oStoryteller, gScanFinish, domainIsReady
  set oldDelim to the itemDelimiter
  set the itemDelimiter to ":"
  repeat with cNum in [2351, 2386, 2390, 2380, 2381, 2391, 2341]
    set fullPath to the fileName of cast cNum
    set fName to the last item in fullPath
    set newPath to "AMBER-Journeys Beyond‚Ñ¢ (A):ROXY:movies:" & fName
    set the fileName of cast cNum to newPath
  end repeat
  set the itemDelimiter to oldDelim
  repeat with i = 1 to 48
    puppetSprite(i, 1)
  end repeat
  set scanStatus to getState(oStoryteller, #PKscanStatus)
  if getPos([#Wait1min, #Wait2min, #Wait3min, #Wait4min, #Wait5min], scanStatus) then
    set minutesRemaining to getPos([#Wait1min, #Wait2min, #Wait3min, #Wait4min, #Wait5min], scanStatus)
    set gScanFinish to the ticks + (minutesRemaining * 3600)
    put "new gScanFinish = " & gScanFinish
  end if
  initInventory()
  set domainIsReady to 1
  restoreSounds(#fadeIn)
  closePatchFile()
  go("bigLoop")
end